home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Cl…Business) - New Member 21 / Software of the Month Club XXI - New Member Business.ISO / mac / Business / Financial Portfolio v4.1 ƒ / Financial Portfolio v4.1 / Financial Portfolio v4.1.rsrc / LENS_206_Value Graph Parameters.bin < prev    next >
Text File  |  1995-11-23  |  9KB  |  171 lines
  1. ItemType: WIND
  2. Rect: 308,467,618,771
  3. AutoSize: FALSE
  4. Style: Dialog
  5. HasTitleBar: TRUE
  6. HasZoomBox: FALSE
  7. Name: Value Graph Parameters
  8. Script: if objValue="Open" then ┬  get wsGet(wdID,"rounder","SelectionText")┬  if it=empty then┬    wsSet wdID,"rounder","SelectionText", "1000"┬  end if┬  put fld "ValueList" into PL┬  get wsGet(wdID,"DateStart","Text")┬  put it into starter┬  get wsGet(wdID,"DateEnd","Text")┬  put it into ender┬  put the number of lines of pluckDates(PL,starter,ender) into num┬  wsSet wdID,"valNum","Text",num&&"values"┬  if line 1 of fld "typer"="stocks" then┬    wsSet wdID,"Value","Visible", "TRUE"┬    wsSet wdID,"Price","Visible", "TRUE"┬    if line 2 of fld "typer"="true" then┬      wsSet wdID,"Price","hilite", "TRUE"┬      wsSet wdID,"value","hilite", "false"┬    else┬      wsSet wdID,"Price","hilite", "false"┬      wsSet wdID,"value","hilite", "true"┬    end if┬  else┬    wsSet wdID,"Value","Visible", "false"┬    wsSet wdID,"Price","Visible", "false"┬  end if┬  wsSet wdID,"DateStart","Selection", "0,20"┬end if
  9. Params: i3_Text┬i5_Text┬i6_Text┬i0_TopLeft┬i13_Text
  10. Result: i5_Text┬i6_Text┬i8_Hilite┬i16_Visible┬i16_Hilite┬i22_Hilite┬i18_Text┬i19_Text
  11.  
  12. ItemType: PUSH
  13. Rect: 225,157,297,177
  14. Name: OK
  15. DefaultItem: TRUE
  16. AutoClose: TRUE
  17.  
  18. ItemType: PUSH
  19. Rect: 132,158,212,178
  20. Name: Cancel
  21. CancelItem: TRUE
  22. AutoClose: TRUE
  23.  
  24. ItemType: TEXT
  25. Rect: 7,3,305,20
  26. AutoSize: FALSE
  27. Name: name
  28. Text: The graphee
  29.  
  30. ItemType: LBL
  31. Rect: 14,42,140,55
  32. TextFont: Geneva
  33. TextSize: 10
  34. TextStyle: Bold
  35. Text: Date (x-axis) range:
  36.  
  37. ItemType: TEXT
  38. Rect: 140,42,208,59
  39. TextFont: Geneva
  40. TextSize: 10
  41. AutoSize: FALSE
  42. Name: DateStart
  43. LockText: FALSE
  44. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬if fld "ValuesToGraph" is not empty then -- was pruned┬  put fld "ValuesToGraph" into PL┬else┬  put fld "ValueList" into PL┬end if┬get wsGet(wdID,"DateStart","Text")┬put it into starter┬get wsGet(wdID,"DateEnd","Text")┬put it into ender┬if (starter is a date) and (ender is a date) then┬  put the number of lines of pluckDates(PL,starter,ender) into num┬  wsSet wdID,"valNum","Text",num&&"values"┬end if┬--end closeField┬
  45.  
  46. ItemType: TEXT
  47. Rect: 225,42,293,59
  48. TextFont: Geneva
  49. TextSize: 10
  50. AutoSize: FALSE
  51. Name: DateEnd
  52. LockText: FALSE
  53. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬if fld "ValuesToGraph" is not empty then -- was pruned┬  put fld "ValuesToGraph" into PL┬else┬  put fld "ValueList" into PL┬end if┬get wsGet(wdID,"DateStart","Text")┬put it into starter┬get wsGet(wdID,"DateEnd","Text")┬put it into ender┬if (starter is a date) and (ender is a date) then┬  put the number of lines of pluckDates(PL,starter,ender) into num┬  wsSet wdID,"valNum","Text",num&&"values"┬end if┬--end closeField┬
  54.  
  55. ItemType: LBL
  56. Rect: 212,43,225,56
  57. TextFont: Geneva
  58. TextSize: 10
  59. Text: to
  60.  
  61. ItemType: CHK
  62. Rect: 6,131,161,144
  63. TextFont: Geneva
  64. TextSize: 10
  65. Name: Determine precise dateline
  66. Hilite: TRUE
  67.  
  68. ItemType: LINE
  69. Rect: 11,188,296,189
  70.  
  71. ItemType: TEXT
  72. Rect: 5,192,305,302
  73. TextFont: Geneva
  74. TextSize: 9
  75. AutoSize: FALSE
  76. Name: instr
  77. Text: Enter the range of dates you wish to graph (the defaults are the first and last dates of the data) and the minimum and maximum numbers for the labels of the y axis (values); this range can be determined automatically or you can insert your own numbers.┬┬Choosing a ╥precise╙ dateline forces the x-axis (dates) to have absolute correspondence to each day in the date range (with interpolation between these values) rather than simply graphing (non-consecutive) entered dates spaced out evenly.
  78.  
  79. ItemType: PUSH
  80. Rect: 161,130,197,144
  81. TextFont: Geneva
  82. TextSize: 9
  83. AutoSize: FALSE
  84. Name: huh?
  85. Script: get windowscript("Graph example",wsTopLeft(286,240))
  86.  
  87. ItemType: PUSH
  88. Rect: 8,158,122,178
  89. TextFont: Geneva
  90. TextSize: 10
  91. AutoSize: FALSE
  92. Name: Prune values to graph
  93. Script: put fld "valueList" into PL┬put "You have"&&(the number of lines of PL)&&"values between"&&(word 1 of PL)&&"and"&&(word 1 of last line of PL) into qq┬put prune(PL,qq) into fld "valuesToGraph"┬put the number of lines of fld "valuesToGraph" into Num┬wsSet wdID,"valNum","Text",Num&&"values"┬
  94.  
  95. ItemType: TEXT
  96. Rect: 7,25,52,38
  97. TextFont: Geneva
  98. TextSize: 10
  99. Name: valNum
  100. Text: 6 values
  101.  
  102. ItemType: PUSH
  103. Rect: 252,3,304,19
  104. TextFont: Geneva
  105. TextSize: 9
  106. AutoSize: FALSE
  107. Name: Another...
  108. Script: put "Value Graph Parameters" into ww┬get wsGet(wdID,"name","Text")┬put WindowScript("Select one",makeItemList(),WSTL(266,100),it,"Select Detail to graph") into rr┬if line 1 of rr="OK" then┬  put line 2 of rr into namer┬  put NTFSqueezeText(fld "ValueList" of cd namer,"A") into VL┬  put the number of lines of VL into VLL┬  if VLL<2 then┬    errorAns("There are too few values to graph.")┬  else┬    lock screen┬    set lockmessages to true┬    push cd┬    go cd namer┬    put the short name of this bg into sn┬    put the id of this cd into IDD┬    pop cd┬    unlock screen┬    put IDD into fld "IDer"┬    put namer into fld "name"┬    put stripIt(VL) into fld "ValueList"┬    put stripIt(VL) into fld "ValuesToGraph"┬    if sn="stocks" then┬      wsSet ww,"Value","Visible", "TRUE"┬      wsSet ww,"Price","Visible", "TRUE"┬      wsSet ww,"Price","hilite", "false"┬      wsSet ww,"value","hilite", "true"┬      put "stocks"&return&"false" into fld "typer"┬    else┬      wsSet ww,"Value","Visible", "false"┬      wsSet ww,"Price","Visible", "false"┬      put empty into fld "typer"┬    end if┬    wsSet ww,"name","Text",namer┬    get the number of lines of fld "valuesToGraph"┬    wsSet ww,"valNum","Text",it&&"values"┬    wsSet ww,"dateStart","Text",word 1 of VL┬    wsSet ww,"dateEnd","Text",word 1 of last line of VL┬    wsSet ww,"dateStart","selection","0,15"┬  end if┬end if
  109.  
  110. ItemType: RAD
  111. Rect: 92,22,152,38
  112. TextSize: 12
  113. Visible: FALSE
  114. Name: Value
  115. Hilite: TRUE
  116. Script: put "Value Graph Parameters" into ww┬put fld "name" into namer┬put NTFSqueezeText(fld "ValueList" of cd namer,"A") into VL┬if the number of lines of VL <2 then┬  errorAns("There are too few values to graph.")┬else┬  put stripIt(VL) into fld "ValueList"┬  put fld "ValueList" into fld "ValuesToGraph"┬  put "stocks"&return&"false" into fld "typer"┬  get the number of lines of fld "valuesToGraph"┬  wsSet ww,"valNum","Text",it&&"values"┬  wsSet ww,"dateStart","Text",word 1 of VL┬  wsSet ww,"dateEnd","Text",word 1 of last line of VL┬  wsSet ww,"dateStart","selection","0,15"┬end if┬
  117.  
  118. ItemType: RAD
  119. Rect: 155,22,212,38
  120. TextSize: 12
  121. Visible: FALSE
  122. Name: Price
  123. Script: put "Value Graph Parameters" into ww┬put fld "name" into namer┬put NTFSqueezeText(fld "priceList" of cd namer,"A") into VL┬if the number of lines of VL<2 then┬  errorAns("There are too few prices to graph.")┬else┬  put stripIt(VL) into fld "ValueList"┬  put fld "ValueList" into fld "ValuesToGraph"┬  put "stocks"&return&"true" into fld "typer"┬  get the number of lines of fld "valuesToGraph"┬  wsSet ww,"valNum","Text",it&&"values"┬  wsSet ww,"dateStart","Text",word 1 of VL┬  wsSet ww,"dateEnd","Text",word 1 of last line of VL┬  wsSet ww,"dateStart","selection","0,15"┬end if┬
  124.  
  125. ItemType: LBL
  126. Rect: 8,68,140,81
  127. TextFont: Geneva
  128. TextSize: 10
  129. TextStyle: Bold
  130. Text: Value (y-axis) range:
  131.  
  132. ItemType: TEXT
  133. Rect: 140,102,208,119
  134. TextFont: Geneva
  135. TextSize: 10
  136. AutoSize: FALSE
  137. Disabled: TRUE
  138. Name: ymin
  139. LockText: FALSE
  140. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬if fld "ValuesToGraph" is not empty then -- was pruned┬  put fld "ValuesToGraph" into PL┬else┬  put fld "ValueList" into PL┬end if┬get wsGet(wdID,"DateStart","Text")┬put it into starter┬get wsGet(wdID,"DateEnd","Text")┬put it into ender┬if (starter is a date) and (ender is a date) then┬  put the number of lines of pluckDates(PL,starter,ender) into num┬  wsSet wdID,"valNum","Text",num&&"values"┬end if┬--end closeField┬
  141.  
  142. ItemType: TEXT
  143. Rect: 225,102,293,119
  144. TextFont: Geneva
  145. TextSize: 10
  146. AutoSize: FALSE
  147. Disabled: TRUE
  148. Name: ymax
  149. LockText: FALSE
  150. Script: --on closeField  wdID,wdName,objNo,objName,objValue┬if fld "ValuesToGraph" is not empty then -- was pruned┬  put fld "ValuesToGraph" into PL┬else┬  put fld "ValueList" into PL┬end if┬get wsGet(wdID,"DateStart","Text")┬put it into starter┬get wsGet(wdID,"DateEnd","Text")┬put it into ender┬if (starter is a date) and (ender is a date) then┬  put the number of lines of pluckDates(PL,starter,ender) into num┬  wsSet wdID,"valNum","Text",num&&"values"┬end if┬--end closeField┬
  151.  
  152. ItemType: LBL
  153. Rect: 212,103,225,116
  154. TextFont: Geneva
  155. TextSize: 10
  156. Text: to
  157.  
  158. ItemType: RAD
  159. Rect: 139,69,210,82
  160. TextFont: Geneva
  161. TextSize: 10
  162. Name: automatic
  163. Hilite: TRUE
  164. Script: get wsGet(wdID,"automatic","Hilite")┬wsSet wdID,"ymin","Disabled",it┬wsSet wdID,"ymax","Disabled",it┬if not it then wsSet wdID,"ymin","selection","0,20"
  165.  
  166. ItemType: RAD
  167. Rect: 139,85,197,98
  168. TextFont: Geneva
  169. TextSize: 10
  170. Name: custom
  171. Script: get wsGet(wdID,"automatic","Hilite")┬wsSet wdID,"ymin","Disabled",it┬wsSet wdID,"ymax","Disabled",it┬if not it then wsSet wdID,"ymin","selection","0,20"